home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / CGEDI.z / CGEDI
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. CCCCGGGGEEEEDDDDIIII((((3333FFFF))))                                                            CCCCGGGGEEEEDDDDIIII((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CGEDI   - CGEDI computes the determinant and inverse of a matrix using
  10.      the factors computed by CGECO or CGEFA.
  11.  
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  14.       SUBROUTINE CGEDI(A,LDA,N,IPVT,DET,WORK,JOB)
  15.  
  16. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  17.      On Entry
  18.  
  19.      AAAA COMPLEX(LDA, N)
  20.         the output from CGECO or CGEFA.
  21.  
  22.      LLLLDDDDAAAA INTEGER
  23.         the leading dimension of the array  A .
  24.  
  25.      NNNN INTEGER
  26.         the order of the matrix  A .
  27.  
  28.      IIIIPPPPVVVVTTTT INTEGER(N)
  29.         the pivot vector from CGECO or CGEFA.
  30.  
  31.      WWWWOOOORRRRKKKK COMPLEX(N)
  32.         work vector.  Contents destroyed.
  33.  
  34.      JJJJOOOOBBBB INTEGER
  35.         = 11   both determinant and inverse.
  36.         = 01   inverse only.
  37.         = 10   determinant only.  On Return
  38.  
  39.      AAAA inverse of original matrix if requested.
  40.         Otherwise unchanged.
  41.  
  42.      DDDDEEEETTTT COMPLEX(2)
  43.         determinant of original matrix if requested.
  44.         Otherwise not referenced.
  45.         Determinant = DET(1) * 10.0**DET(2)
  46.         with  1.0 .LE. CABS1(DET(1)) .LT. 10.0
  47.         or  DET(1) .EQ. 0.0 .  Error Condition
  48.  
  49.      AAAA division by zero will occur if the input factor contains a zero on the
  50.      diagonal and the inverse is requested.  It will not occur if the
  51.      subroutines are called correctly and if CGECO has set RCOND .GT. 0.0 or
  52.      CGEFA has set INFO .EQ. 0 .  LINPACK.  This version dated 08/14/78 .
  53.      Cleve Moler, University of New Mexico, Argonne National Lab.  Subroutines
  54.      and Functions BLAS CAXPY,CSCAL,CSWAP Fortran ABS,AIMAG,CMPLX,MOD,REAL
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.